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SBEGIN RMSOGET,000,RMSRMS,<DISPATCH FOR GET OPERATION>,<NOWRT ,QUAD> 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 
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} * 
| * 
OFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
N ACCORDANCE WITH THE in ae CF SUCH LICENSE AND WITH THE * 
ION OF THE ABOVE Spittal OTICE. THIS SOFTWARE OR ANY OTHER * 
THEREOF MAY NOT BE P ROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
TRANSFERRED. * 
*® 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
CORPORATION. * 
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Abstract: 
this routine is the highest level control 
routine to perform the $get function. 
; Environment: ; 
: star processor running starlet exec. 
: Author: L F Laverdure, creation date: 3-FEB-1977 
: Modified By: 
; V03-004 DGBO034 Donald G. Blair 16-Mar-1984 
8 : Fix broken CASE branch. 
0 : v03-003 KPLOOO2 Peter Lieberwirth 26-Jul-1983 | 
3 AT journaling operations identify themselves in RJR. 
0 ; v03-002 KPLO001 _ Peter Lieberwirth 24-Jul-1983 | 
8 : If AT journaling, get RAB data that describes user's request. 
0 ; v03-001 kBT0183 Keith B. Thompson 23-Aug-1982 | 
3 : Reorganize psects 
| 0 : VO2-006 REFORMAT Keith B. Thompson 29-Jul-1980 
| $ Hie 
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‘¥oa~860 RASSCES”~ COMMON SGET SETUP AND DISPATCH 'ScSEP=I9BG foids:01 FANSveRchANSoceTsmaR:1 = 9° ($y) | NO 
-SBTTL RMSSGET - COMMON SGET SETUP AND DISPATCH ROUTINE 
++ 
$GET 


this routine performs common rab function setup followed 
by dispatch to organization-dependent $get code 


Calling sequence: 


entered from exec as a result of user's calling sys$get 
(e.g., by using the $get macro) 


| 
| 
| 
| 
| 
| 
| 
Input Parameters: 
AP user's argument List addr | 
Implicit Inputs: 
the contents of the rab and related irab and ifab. 
Output Parameters: | 
R1 destroyed 
RO status code 
Implicit Outputs: | 
the stetus of the Sort operation. sea rus functional | 
spec for a complete List.) | 
the irab is similarly updated. | 
a completion ast is queued if specified in the user arglist. | 
Completion Codes: 
standard rms (see functional spec for List). 
Side Effects: 


none 
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SENTRY RMSSGET 
$TSTPT GET | 
S$RABSET FAC=IFBSV_GET ; do common setup 
| 
| 


: If AT journaling, get some information from RAB. 


09 OOAO CA BBC #IFBSV_AT, IFBSB_JNLFLG(R10),108 ; ne if not AT jnling 
1 RJR R1 ; this is a 


5 MOVL #RIRS_GET 
00000000" 


; GET 
JSB RMSAT—COM_RAB : get RAB data into RJR 
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; returns to user on error 
: dispatch to org-dependent code 
CASE TYP 


INDIRECT, RMSGET3> ; seq,rel,idx routines 
2990008 = 


: Cannot dispatch directly to rm$get2 because a case statement cannot 
; handle branches with lLongword offsets. 


GET2_INDIRECT: 
JMP 


QOOOOOOO'EF 17 RMSGET2 
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_RMSOGET DISPATCH FOR GET OPERATION 
| Symbol table 
$$.PSECT EP = $8008 00 
SSRMSTEST = 0000001A 
SSRMS_PBUGCHK = 44 48 
SSRMS_TBUGCHK = 0000000 
SSRMS_UMODE = SoD NOR oF 
GET2 TNDIRECT 0000027 R 01 
1FBSB_JNLFLG = BR OR RB ae 
1F B$B_ORGCASE = it 
IFBSV_AT = 00000004 
IFBSV_GET = 00000001 
PIOSA_TRACE wereeeee =X 01 
RJRS_GET = 0000000E 
RMSAT_COM_RAB teeeeeee X01 
RMSERRORG eerenese =X 01 
RM$GET1 eeeeeeee = X 01 
RMSGET eereeeee =X 01 
RMSGET weeeeeee =X 01 
RMSRSET eexeeeee =X 01 
RMSS$GET = FFFFFFFE RG 01 
TPTSL_GET kktkkeee x 01 
pow aecn amen eer econ + 
! Psect synopsis ! 
suneeeeeecoeeces} 
PSECT name Allocation PSECT No. Attributes 
00000000 < 0.) 00 ¢ 0.) NOPIC 
RMSRMS 0000002D (¢ 45.) O01 ¢ 1. PIC 
SABSS 00000000 < 0.) 02 ¢ 2.) NOPIC 
Peery Y 
! Performance indicators ! 
a 
Phase Page faults CPU Time Elapsed Time 
Initialization — 36 00:00:00.11 00:00:00.91 
Command processing 137 00:00:00.74 00:00:05.71 
Pass 1 190 00:00:03.66 00:00:12.01 
Symbol table sort ° 00:00:00.47  00:00:00.52 
Pass 2 4 00:00:00.77 00:00:02.40 
Symbol table output & 00:00:00.04  00:00:00.04 
Psect synopsis output 2 Se 80:80:00 . Be 
Cross-reference output 0 :00:00.00 0:00:00.00 
Assembler run totals 414 00:00:05.82 00:00:21.64 
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The working set Limit was 1200 pages. 


USR 
USR 
USR 


SEp-1984 16:99:01 


CON ABS LCL NOSHR NO 
CON REL GBL NOSHR 
CON ABS - LCL NOSHR 


18565 bytes (37 pages) of virtual memory were used to buffer_the intermediate code. 


There were 20 


pages of symbol table space allocated to hold 363 non-local and 


163 source Lines were read in Pass 1, producing 15 object records in Pass 2 
15 pages of virtual memory were used to define 14 macros. 


Local symbols. 
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RD 


NOWRT NOVEC QUAD 
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Macro Library name 


-sstut: ESvS. -OBJ i eV 1 


6 
$255$DUA28:(SYS.OBJ MLB; 1 1 
S$DUAZ28: eye SBISTARLET. MLB; 2 3 
TOTALS (all Libraries) 10 
454 GETS were required to define 10 macros. 


There were no errors, warnings or information messages. 
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